with Ada.Text_IO;
procedure Put_Line_UTF8 (S : String)
is
begin
   Ada.Text_IO.Put_Line(S);
end Put_Line_UTF8;
